home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / rexx / PGPwithYAM.lha / SignEncryptMail.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-13  |  1KB  |  49 lines
  1. /* Sign and encrypt a mail with Phil's PGP for YAM
  2.  * $VER: SignEncryptMail.rexx 1.4 (13-Jul-97) by Michael Praschl
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. userid     = 'Michael Praschl'    /* To encrypt mails with your personal key, too, */
  8.                                   /* so you can read sent messages */
  9. pgppath    = 'PGP:bin/pgp'
  10.  
  11. pgpcommand = '-seat'
  12.  
  13.  
  14.  
  15. CALL CLOSE 'STDOUT'
  16. CALL CLOSE 'STDIN'
  17. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  18. CALL PRAGMA '*','STDIN'
  19. CALL OPEN 'STDOUT','*'
  20.  
  21. IF ~SHOW('Ports','YAM') THEN DO
  22.   ADDRESS 'COMMAND'
  23.   'Run YAM:YAM NOCHECK HIDE'
  24.   'SYS:RexxC/WaitForPort YAM'
  25. END
  26. IF SHOW('Ports','YAM') THEN DO
  27.   ADDRESS 'YAM'
  28.   GETMAILINFO FILE
  29.   mailfile = RESULT
  30.  
  31.   ADDRESS 'COMMAND'
  32.   'YAM:Rexx/splitmail' mailfile
  33.   if exists('ram:body') then DO
  34.     pgppath '>RAM:keys -kv'
  35.     if exists('ram:keys') then 'YAM:Rexx/SelectPGPKey RAM:keys OUTFILE RAM:selected'
  36.     if exists('ram:selected') then
  37.       if exists('ram:body') then DO
  38.         pgppath pgpcommand 'ram:body' userid '-@ram:selected'
  39.         if exists('ram:body.asc') then
  40.           if exists('ram:head') then
  41.             'join ram:head ram:body.asc to' mailfile
  42.       END
  43.   END
  44.  
  45.   'delete >NIL: ram:head ram:body ram:body.asc ram:keys ram:selected'
  46.  
  47. END
  48.  
  49.